rows = Get number of rows

nrTypes = 0

for i from 1 to rows

	tmp$ = Get value... i NrFormants
	for i from 1 to nrTypes

		if tmp$ = types$[i]
			count[i] = count[i]
		else
			nrTypes = nrTypes + 1
			types$[nrTypes] = tmp$
		endif

	endfor

endfor

for i from 1 to nrTypes
	printline types$[i] ... $count[i]
endfor